home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 08 System Utilities / FLBRKR.BIN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  768b  |  31 lines
  1. 1 REM--FLBRKR.BAS
  2. 2 REM--TO BREAK LARGE SEQ FILES INTO
  3. 3 REM--SMALLER FILES TO FIT IN PW
  4. 5 REM
  5. 7 REM  R. JOSLIN [72167,3312]
  6. 8 REM  121 BRAXLO LANE
  7. 9 REM  WILMINGTON, N.C. 28403
  8. 10 REM
  9. 80 FC=1:X=0:MX=8000
  10. 85 REM-- MX IS SIZE IN BYTES OF SUBFILES
  11. 88 REM-- 8000 IS DEFAULT (A COMFORTABLE SIZE)
  12. 100 PRINT"ENTER FILENAME":INPUTF$
  13. 110 OPEN1,8,2,"0:"+F$
  14. 115 PRINT"FIRST OUTPUT FILE "F$+STR$(FC)
  15. 118 PRINT:TI$="000000"
  16. 120 OPEN2,8,3,"0:"+F$+STR$(FC)+",S,W"
  17. 130 GOSUB1000
  18. 140 IFX=1THENPRINT"FILE FULL":FC=FC+1:X=0
  19. 150 PRINT"NEXT FILE NAME [146]"F$STR$(FC)
  20. 155 PRINT:TI$="000000"
  21. 160 GOTO120
  22. 1000 REM--GET DATA
  23. 1005 CC=0
  24. 1010 GET#1,A$
  25. 1015 IFST=64THENSZ=1
  26. 1020 PRINT#2,A$;
  27. 1030 CC=CC+1:PRINT"[145]"CC" "MID$(TI$,3,2)":"MID$(TI$,5)
  28. 1040 IFSZ=1THENCLOSE1:CLOSE2:PRINT"TOTAL BYTES "(FC-1)*MX+CC:END
  29. 1050 IFCC=MXTHENCLOSE2:X=1:RETURN
  30. 1060 GOTO1010
  31.